/ 

CMiMDS I DENT 



H20 8/5/68 



.* COMMAND, SUBSYSTEM, AND USER INITIALIZATION TABLES 



NCMEM 


EQU 


57B 


NTTB 


E9U 


32 


SEC90 


DATA 


90000 


SEC 180 


DATA 


180000 


MSET 


MACRO 


D 




LDA 


= D( 1) 




SBRM 


XTMSG 




EN DM 




MSG 


MACRO 


D 




LDA 


= D( 1) 




SBRM 


XOMSG 




EN DM 





1 1/2 MIN 

3 MIN 



♦ INITIAL ENTRY POINT FROM MONITOR 
SEX E CI SBRM EXECRL 

CLAB 

STP PRGRL1 

STP INFIL 



STA 


UNO 


STA 


ULFLG 


STA 


ULINK 


STA* 


TJOB 


STA 


LTJOB 


STA 


CIN 


STA 


GO FN 1 


LDA 


= 1 


STA 


COUT 


LDA 


REAL 


STA 


UREAL 


STA 


LREAL 


LDX 


= -6 


STX 


OPFE, 2 


BRX 


*- 1 


LDA 


= -1 


STA 


SWTO 


STA 


SYSTL 


STA 


MAGT 


LDX 


UTTY 


STA 


AUNN, 2 


STA 


WERI S, 2 



NO PROGRAM SPACE FOR USER 



USER NOT LOGGED IN 



CLEAR CHARGED TIME 



SET COMMAND I/O 



TO TELETYPE 



RESET .^LAPSED TIME 



NO SUBSYSTEM IN USE 
NO MAGTAPE FILE IN USE 



LDX =-U BRS 29i MSET M42J BRS 47; LDA REAL,* SBRM DAYTIM 
BRU ABORT 



$EXECR MSET MRST; BRU ABORT 

MRST ASC *$SYS RESTART, PROCEED WITH CAUTIONS/* 

* RE-ENTRY AFTER MEM AND ILLEG INST TRAPS AND ESCAPE 



SEXECP 


CLA J 


ST A CINi LDA 


= 1J STA COUTJ CXA 




SKG 


= 


CHECK TYPE OF TRAP 




BRU 


ABRT 


ESCAPE 




SKG = 


U BRU EXECP1,' 


MSET M66J BRU EXECP2 


EXECP1 


MSET 


M65 




EXECP2 


LDA 


EXECL 






SBRM 


PONO 






BRU 


*+2 




ABRT 


MIN 


NESC 






LDA 


UNO 






SKG 


X0 






BRU 


CLO SE2 






SKN 


SWTO 






BRU 


ABORT 






SBRM 


UPDATR 






BRU 


ABORT 





^GENERAL ERROR RE-ENTRY POINT 



SERRET 


MSET 


El 


ERRTM1 


EXT 


ERRET- 




LDX 


= -1 




BRS 


1 1 


SABORT 


SBRM 
CLAB 


BRS17 




STP 


INFIL 




BRU 


CLO SE2 



TERM MAG TAPE, CLOSE ALL FILES, ENABLE ESC 



* CLOSING OUT SEQUENCE FOR COMMANDS 

OUTEX LDA TERM WD WRITE 2 TERMWDS AT END OF FILE 

•WIO. OUTFIL 

OUTFIL 

CLOSE MAGTAPE I/P FILE - INFIL 

INFIL 

BRS20 

CLOSE MAGTAPE O/P FILE - OUTFIL 

OUTFIL 

BRS20 



WI 

CLOSE CLA 
XMA 
SBRM 
CLA 
XMA 
SBRM 



CLO SE2 



$CRA 



78 



LDX 

CLA 
BRS 
.BRS 
BRS 
LDA 
SKE 
BRU 
SBRM 
LDX 
BRU 

BRS 46 
BRS 
MSET 
SBRM 
SBRM 
SKA 
BRU 
SKN 
BRU 
MSET 
MIM 
LDX 
LDA 
SBRM 



= -1 



12 



47 

UNO 
= 
CRA 

EXECRL 
= TIMOUT; LDA 
ENTER 

LDA LETFLG; 
47 
M23 
EXECRL 
CK TI M 
LOGO NT 
CRA1 
SWTO 
CRA1 
M43 
SWTO 
=TIMOUT 
SEC180 
TFO RK 



SET ECHO TABLE 



TURN ESCAPE ON 



GET COMMAND 



SEC90J ADD UREAL; SUB 
ATTEMPT LOG IN 
SKG ULFLG; BRU * + 4'> 



REAL; BRS 108; SBRM TFORK 



ST A ULFLG; MSET MBUF 



TYPE •§ ' 
UPDATE EXRL1 



EXRL2 



•TIME RUNOUT, 3 MIN 



3 MINUTE TIMER 



CRA1 LDX UTTY 

LDA LCW.,2 

LRSH 16 

ETR = 177B 

SKG X0 

BRU CRA3 

BRS 46 

SUB =1 

STA ULINK 

CAX 

SBRM OUTUSE 

MSET M5; LDA ULINK; SBRM PDNO 

MSET M6 

BRS 28 

BRU CRA 

CRA3 LDA CIN 

STA GO FN 1 

LDA REAL 

SUB LREAL 

SKA =200000B 

SBRM MFD 

SBRM GET3C; STA RLV2; LDX = -NCOMS 

SKE* EGMTBL,2; BRX *- 1 FOUND THE COMMAND 

CXA; SKE X0; BRU *+2; BRU CRA3A NOT, THERE-' 

LDA ECMTBL,2; ADD =1; STX RLV2; SBRM XTMSG; 



■A FILE? S. E. 
LDX RLV2 



T. 



SKN EBRTBL*2; BRU* EBRTBL* 2; SBRM OK TO GO i BRU* EBRTBL, 2 DISPATCH 



CRA3A LDA RLV2J MRG = 200B; COPY B, X 

SBRM BRS48* BRU ERRETJ SBRM BRS16J 
LDA =-l; STA GETPLJ BRU GET10A 



BRU ERRETJ STA INFIL 



* GET 3 CHARS FROM TTY TO A, IN CORRECT ORDER 

GET3C ZRO RLV2 

CIO GO FN 1 J SKE QUOTCHj BRU * + 2J BRU QTj CAX 

CIO GOFN1J LRSH 8 J CXAJ LSH 8J CAX 

CIO GO FN 1 J LRSH 8? CXAJ LSH 8 J BRR RLV2 



SOUTUSE ZRO 


RLV3 


LDB 


WERI S, 2 


SBRM 


OUTU1 


LDB 


WERI SB, 2 


SBRM 


OUTU1 


BRR 


RLV3 


SOUTU1 ZRO 


RLV1 


sfx 


RLV4 


LDX 


= -5 


CLA 




LSH 


1 


DI V 


T27+5, 2 


SKG 


= 


BRU 


*+ 3 


ADD 


= 40B 


CIO 


COUT 


BRX 


0UTU1+3 


LDX 


RLV4 


BRR 


RLV1 



T27 



DATA 



531441, 19633*729,27, 1 



* 'LOGIN SEQUENCE* 


ENTER LDA REAL* SUB UREAL; 


STX 


UTNO 


MSET 


M56 


SBRM 


FN AC 


LDX = 


= -U BRS 11 


MSET 


M71 


SBRM 


GTS 


BRU 


ENTER6 


SBRM 


NMC 


BRU . 


ENTER6 


MSET 


M72 


SBRM 


NMVF 


MSET 


M21 


SBRM 


NMV 


BRU 


ENTER6 


STX 


TLV1 


SBRM 


CK TI M 


LDX 


= DTEMP 


SKA 


2,2 


BRU 


*+2 


BRU 


ENTER4 


LDA 


2,2 


STA 


LOGO NT 



SKG SEC90J BRU * + 2; SBRM TIMOUTj CLX 
STANDARD TAPE UNIT =0 

FINDS AND READS IN ACCT DI R 
TO PREVENT TYPE-AHEAD 

GET STR TERM BY SEMI COL 
NO SEMI 

CK FOR VALID PASSWORD 
NOT VALID 



CHECK USER NAME 

NOT VALID 

USER AUD ENTRY ADDR 

PUT CURRENT HOUR BIT IN A 

CK FOR VALID HR THIS ACCT 

NO 



LDX 


TLV1 


LDA 


2,2 


ETR 


=7777B 


STA 


UNO 1 


LDX 


a-NTTB 


LDB 


=7777B 


SKM 


AUNNE, 2 


BRU 


*+2 


BRU 


EN TER6 


BRX 


*-3 


BRS 


46 


BRS 


108 


RSH 


12 


LDA 


SAVELL 


RCY 


12 


LDX 


UTTY 


LDA 


XWR8 


STA 


WERI S, 2 


LDA 


XWR9 


STA 


WERI SB* 2.' 


STB 


AUNN,2 


LDX 


TLV1 


LDA 


2,2 


STA 


PRWRD 


ETR 


=37777777B 


STA 


CPARW 


SBRM 


RFD 


EAX 


UEDE 


LDA 


-4,2 


SUB 


- 5, 2 


LDX 


JOB 


STA 


DBA, 2 


LDA 


UNOl 


STA 


UNO 


MIN 


NLOG 


LDX 


= -1 


BRS 


1 1 


BRU 


CRA 


ENTER 4 MSET 


M34 


LDX 


UTTY 


BRS 


14 


BRU 


L GOUT 3 


ENTER6 MSET 


M57 


BRU 


ERRET+2 



LOC OF NAME IN AUD 

USER NO. 

CK IF USER IS ALREADY ON 

CK IN AUNN 

ALREADY ON 

USER VALID KILL TIMING FORK 



PUT USER NO. IN WERI S TABLE 



READ FD TO TSBLOCK 



RECORD USER AS BEING LOGGED ON 
TOTAL LOG ONS 



* 'LOGOUT 


t 






SLOGOUT LDX 


UTTY 






SBRM 


OUTUSE 






SBRM 


OK TO GO, 






MSET 


M21 






LDA 


REAL 






SBRM 


DAY TIM 






BRS 


46 






MSET 


M18 






LDA 


UREAL 






SBRM 


GETTIM 






SBRM 


HOUR 






LDX =UFDE* CLA5 


STA 


-8*2* XMA -7,2 


SKG =0J 


BRU LG0UT4; 


STA GET2; LDX =9 J BRS 1 


BRU LG0UT4J BRS 


66; 


BRS 2* LDA GET2J BRS 67 


LG0UT4 LDX UTTY 




> 


BRS 


14 






■SLGOUT1 SBRM 


KILL6 




RELEASE 'PROGRAM* MEMORY 


SBRM 


BRS17 




CLOSE ALL FILES 


SBRM 


MFD 






SLG0UT3 BRS 


108 




KILL ALL FORKS 


BRS 76 








. CLAB 








LDX 


UTTY 






STA 


AUNN, 2 




CLEAR AUD 


STA 


WERI S, 2 






,STA 


WERI SB, 2 


► 




LDX 


JOB 






BRS 


112 




LET MONITOR CLEAN UP 



* CALL 


FOR ANY SUBSYSTEM 


SCSYS LDA 


EBRTBL,2 


ETR 


=37700000B 


SKA 


=121000008 


SKA 


CPARW 


8RU 


*+2 


BRU 


ERRET 


COPY 


XA, B 


ADD 


=NCOMS 


LSH 


2 


ADD 


=SUBTB1 


STA 


TLVl 


COPY 


AX 


LDB 


-1,2 


EAX 


PRGRL1 


SK B 


X2 


SBRM 


KILL6 


SBRM 


RSYS 


LDA 


TLVl 


CLB 




SBRM 


GSYS 


CLA 





CSYS1 STA 


SSL 


LDX 


SYSTL 


STX 


SYSRRL 


LDA 


-1,2 


ETR 


ADM SK 


ADM 


SSL 


LDA 


GIN 


LDB 


COUT 


STP 


SSA 


■ LDX 


SY SRRL 


LDA 


2,2 


SBRM 


DRSW 


STP 


SSR1 


LDX SYSRRL; LDA -1,2* 


MRG 


SSL, 3 


BRS 


9 


BRS 


31 


SBRM 


EXECRL 


LDB 


= SSR1 


LDX 


SY SRRL 


LDA 


2,2 


SBRM 


RRR 


SBRM 


SEXR 


LDX 


SSM 


LDA 


SSL 


STA 


EXECL 


BRU 


*+l,2 


BRU 


ABORT 


BRU 


EXECP 


BRU 


EXECP 


SSSL3 NOP 


SSL, 3 



NO, RELEASE USER'S MEMORY FIRST, THEN. 



GET SPECIFIED SUBSYSTEM 



BUILD PANIC TABLE FOR SUBSYS FORK 



EXTRICATE FORK STARTING ADDR FROM SUBSYSS 



START LOC 



SET FORK INIT. 
CONSTRUCT FORK 



ETR X4 



AB 
MAP 



FROM STRUCTURE WORD II 



PASS ON TO EXEC, PROGR ANY CHANGES IN PA| 
... SUBSYSTEM AND RELEASE MEMORY GRABBED! 



EXIT ACCORDING TO STATUS OF SUBSYS ON TEI 



* 


'CONTINUE' 


SCOiMT 


SBRM 


PSCN 




SBRM OK TO GO 




LDA 


= 1 




BRU 


CSYS1 


* 


'KILL PROGRAM' 


SKILL 


EAX 


PRGRL1 




SBRM 


RELST 




BRU 


CRA 


* 


'CLEAR' 




SRESET 


SBRM 


KILL 6 




BRU 


CRA 


* 


'RENAME 


f 


SREtM 


SBRM 


FDFiMA 




BRU 


ERRET 




ADD 


=20000006B 




STA 


XWR4 




MSET 


M69 




SBRM 


FDFNA 




BRU 


*+2 




BRU 


ERRET 




SBRM 


OK TO GO 




BRS 


46 




LDX 


= -3 




LDA 


G8UFE, 2 




STA* 


XWR4 




BRX 


*-2 




BRU 


CRA 



'GET' 



SSTEAL 


SBRM 


RFINA* BRU ERRET; BRU ERRET; BRU ERRET 




MSET 


M75J SBRM FN A CJ CLAj CIO COUT; SBRM NMVF 




LDX 


= -A9 


STEAL 2 


LDA 


DTEMPE, 2 




SKE 


XWR8 ■ 




BRU 


STEAL 1 




EAX 


-1*2 




LDA 


DTEMPE* 2 




ETR 


=7777B 




SKG 


X0 




BRU 


ERRET • 



CLB 




LSH 


2 


ADD 


= 400B 


CAB 




LDA 


= DTEMP 


LDX 


' =256 


BRS 


61 


HLT 




CAX ; 


LDB 247D* 2 


SBRM 


HCSDF 


BRU 


ERRET 


LDX 


UNPTR 


SKN 


2*2 


BRU 


ERRET 


SKN 


0,2 


BRU 


*+2 


BRU 


ERRET 


LDA 


2*2 


SKA 


XI 


BRU 


*+6 


LDX 


UTTY 


LDA 


AUNN*2 


> LRSH 


12 


SKE 


SAVELL 


BRU 


ERRET 


LDX 


UNPTR . 


LDA 


2*2 


LRSH 


17 


ETR 


= 7 


STA 


COPYT 


LDA 


1*2 


ETR 


XX 


SKG 


X0 


BRU 


ERRET 


STA 


I N FI L 


STEAL 4 MSET 


M74 


LDX 


= -1 


CLAB 




SBRM 


BRS58 


BRU STEAL4 


STA 


OUTFIL 


CXA 




SKE 


OKCH 


BRU 


STEAL 4 


LDA 


=100006B 


STA 


UNPTR 


LDA 


INFIL 


LDX 


= 8 


BRS 


1 


BRU 


ERRET 


STA 


INFIL 


LDX 


COPYT 


BRU 


COPY 13 


STEAL 1 CXA 




ADD 


= 3 


CAX 




BRX 


STEAL 2 


BRU 


ERRET 



* 'COPY 


t 


SCOPY CLX 




CLAB 




SBRM 


BRS58 


SBRM 


NEWTRY 


SKA 


X4 


BRU 


ERRET 


STA 


INFIL 


MSET 


M50 


LDX 


= - 1 


CLAB 




SBRM 


BRS58 


SBRM 


NEWTRY 


STA 


OUTFIL 


CXA 




SKE 


X0 


BRU 


C0P2 


MSET 


M50 


LDX 


= -1 


CLAB 




SBRM 


BRS58 


SBRM 


NEWTRY 


CO PI STA- 


UNPTR 


MSET 


M21 


LDA 


INFI'L 


SBRM 


BRS16 


BRU 


ERRET 


STA 


INFIL 


STB 


COPYT 


STX 


UMPTR1 


XXB 




COPY 13 LDA 


OUTFIL 


SBRM 


BRS19 


BRU 


ERRET 


STA 


OUTFIL 


LDX 


COPYT 


LDP 


UNPTR 


SBRM 


BRS19 


BRU 


ERRET 


STA 


UMPTR 


LDX = 


- I; LDA =25 


LDA 


COPYT 


SKE 


= 3 


BRU 


COPY 5 


COPY 3 CIO 


INFIL 


SKN 


INFIL 


BRU 


*+6 


CAB 




LDA 


INFIL 



BRS 12 



SKA 


=00400000B 


BRU 


COPY 11 


CBA 




SKE 


EO TCH 


BRU 


* + 2 


LDA 


TERMCH 


CIO 


OUTFIL 


SKN 


OUTFIL 


BRU 


* + 6 


CAB 




LDA 


OUTFIL 


SKA 


=00400000B 


BRU 


COPY 12 


CBA 


- 


CIO 


UNPTR 


SKN 


UNPTR 


BRU 


*+6 


CAB 




LDA 


UNPTR 


SKA 


=00400000B 


BRU 


COPY 12 


CBA 




SKE 


TERMCH 


BRU 


COPY 3 


CIO 


OUTFIL 


CIO 


OUTFIL 


CI 


UNPTR 


CIO 


UMPTR 


BRU 


CLOSE 


COPY 5 CLA ' 




COPY 6 STA 


SAVELL 


WI . 


INFIL 


WIO 


OUTFIL 


WIO 


UMPTR 


SKE 


TERM WD 


BRU 


COPY 6 


XMA 


SAVELL 


SKE 


TERM WD 


BRU 


COPY 6+1 


MIN 


NCOP 


BRU 


CLOSE 


COPY 11 MSET 


M9 


BRU 


COPY 12+ 2 


COPY 12 MSET 


M10 


LDA 


OUTFIL 


BRS 


66 


LDA 


UNPTR 


BRS 


66 


BRU 


CLO SE 


C0P2 LDA 


=100006B 


BRU 


CO PI 



READ ERROR 



'READ ERROR* 
f WRITE ERROR f 



'DELETE FILE' 



DEL SBRM 


FDFNA 


BRU 


ERRET 


SBRM 


OK TO GO 


SBRM 


DELFIL I BRU ERRET; 


DELFIL ZRO 


RETURN; LDX UNPTR 


SKN ( 


3,2; BRR RETURN IF 


BRS 


46 


LDA 


1,2 


ETR 


=777774B 


SKE 


X0 


BRU 


*+2 


BRU 


DELL1 


LDX 


= 9 . 


BRS 


1 


BRR i 


RETURN 


BRS 


66 


BRS 


2 


LDX 


UNPTR 


LDA 


1,2 


ETR 


=777774B 


BRS 


67 


ELL1 LDA 


UNPTR 


SBRM 


FDEL 


MIN 


NDEL 


SBRM 


MFD; MIN RETURN; BR 



BRU CRA 



NOT PRIVATE ABORT 



RETURN 



•UPDATE FD' 



SUPFD 



SBRM 
BRU 



MFD 
CRA 



* 'LIBRARY' 

SPLD SBRM RLD; LDX =-128 

PLD1 LDA LI BE, 2; SKE =0; BRU *+2; BRU CRA; STX RLV5; LDX =-3 
CIO COUT; LRSH 8; BRX *-2; MIN RLV5; LDX RLV5; CLA 
LDB LI BE, 2; LSH 3; STA RLV4; L SH 3; CLA; RSH 6; STB RLV3 
LDX RLV4; LDA Tl,2; SBRM XTMSG; CLA; CIO COUT; LDA RLV3; SBRM -POS 
MSET M2l; LDX RLV5; BRX PLDl; BRU CRA 

RLD ZRO RLVl; LDA =LIB; LDB =256; LDX =128; BRS 61; HLT; BRR RLVl 

* 'FD FOR* 



SLFDF 



SBRM 


FDFNA 


BRU 


ERRET 


LDA 


= 


CIO 


COUT 


SBRM 


FPRINT 


BRU 


CRA 



* 


•FILES' 




SSLFP 


LDB 


= -1 




BRU 


LFP 



•DIRECTORY ' 



SLFDCOM CL8 



LFP 



LFP1 



LFP2 



STB 

LDA 

SKG 

BRU 

SKB 

BRU 

MSET 

LDA 

STA 

ADD 

STA 

LDA 

SKG 

BRU 

SBRM 

SKN 

BRU 

MSET 

BRU 

SBRM 

LDA 

ADM 

BRU 



DELI 
FDEND 
= 
CRA 
X4 
* + 3 
Ml 5 
= UFD 
UNPTR 
FDEND 
UNPTR 1 
UNPTR 1 
UNPTR 
CRA 
PFINA 
DELI 
LFP2' 
M21 
*+2 
FPRINT 

-J 

UNPTR 

LFP1 



SDRDERR MSET 
BRU 



M9 
ERRET+2 



SD.WTERR MSET 
BRU 



M10 
ERRET+2 



* 


•EXECUTE* 


SGO 


LDA 


= -1 


GET10 


STA 


GETPL 




SBRM 


GI FN 




SBRM 


OK TO GO 


6ET10A 


BAC 






SKE 


= 1 




BRU 


GET9+ 1 




SKN GETPLJ BRU *+3 




SBRM 


■ RSYS 




LDA 


INFIL 




LDX 


=PRGRL1 




SBRM 


GET 




BRU 


DRDERR 




CLA 






STA 


INFIL 




SKN 


GETPL 




BRU 


CRA 


GET8 


SBRM 


EXECRL 




LDA 


GET STL 




MRG 


-40100000B 




STA 


SSL 




LDP 


PRGRL1 




STP 


SSR1 




LDA 


GET9 




SKN 


CPARW 




BRU 


*+2 




MRG 


X4 




BRS 


9 




BRS 


31 




LDP 


SSR1 




STP 


PRGRL1 




LDA 


SSL 




STA 


EXECL 




BRU 


EXECP 


GET9 


NOP 


SSL, 3 




MSET 


XM6 




BRU 


ERRET+2 



READ INPUT FILE NAME 



CHECK FILE TVPE IS CO RE- 1 MAGE 



LDA = PRGRLl; SBRM CKRLB 



READ FILE INTO PRGRM MEMORY 



EXIT HERE IF 'PLACE' 



SET PANIC TABLE FOR FORK 



START AS EXECUTIVE 
START UP RECOVERED FILE 

UPDATE PRGRL AND RETURN FOR NEXT COMMAND 



* 


•DEFINE 


t 


* 


SETS UFD STATUSES 


SSTFD 


SBRM 


FDFNA 




BRU 


ERRET 




MSET 


M69 




SBRM 


DCHAR3 




BRU 


ERRET 




LDX 


UNPTR 




SKE 


PRI 




BRU 


ST1 




LDA 


1*2 




ETR 


=37777777B 




STA 


1*2 




CBA s SKE COMCHi BRU 




SBRM 


DCHAR3 




BRU 


ERRET 




SKE 


REA 




BRU 


ERRET 




BRS 


46 




LDX 


UNPTR 




LDA 


X4 


ST 4 


MRG 


1*2 




STA 


1*2 




LDA 


X4 




MRG 


0*2 




STA 


0*2 




BRU 


UPFD 


ST1 


XAB 






SKE 


COMCHJ BRU * + 




BRU 


ERRET 




COPY 


BA*B 




SKE 


ACC 




BRU 


ST3 


ST2 


BRS 
XAB 


46 




XMA' 


2*2 




ETR 


=67777777B 




ADM 


2*2 




LDA 


0*2 




ETR 


=37777777B 




STA 


0*2 




LDA 


X4 




MRG 


1*2 




STA 


1*2 




BRU 


UPFD 


ST 3 


SKE 


PUB 




BRU 


ERRET, 




LDB 


XI 




BRU 


ST2 


ST5 


BRS 46J 


CLA J BRU ST4 


* 


♦PLACE* 




SPLACE 


CLA 






BRU 


GET10 



ST5 



* f BRAN Q 


■i 9 


$8 RANCH SBRM 


RONO 


XAB 




SKE 


OK CM 


BRU 


ERRET 


3G0T0 1 STB 


GETSTL 


BRU 


GETS 



* 'SAVE* 




SSAVE SBRM 


RONO 


STA 


SAVEFL 


MSET 


M50 


SBRM 


RONO 


STA 


SAVELL 


CBA 




MSET 


M 1 6 


LDA 


SAVELL 


SUB 


SAVEFL 


ADD 


= 1 


LDB 


= 1 


SBRM 


GO FN 


CBA } 


SKE COMCHJ 


M SET 


M3 


SBRM 


RONO 


BRU 


*+2 


SAVE2 LDA 


■=240B 


STA 


SAVESL 


CBA i 


SKE OKCH J 


LDA 


SAVEFL 


STA 


GET2 


WI 


OUTFIL 


LDA 


SAVELL 


STA 


GET3 


WIO 


OUTFIL 


LDA 


SAVESL 


-3ifc£.'"' 


' QUIFLL ,. 


TTda 


-PRGRLi 


^ A 


GETS 


LDX 


= GET2 


LDA 


OUTFIL 


SBRM 


GBIO 


BRU 


SAVE1 


BRU 


OUTEX 


SAVE1 MSET 


M10 


BRU 


OUTEX 



READ CORE BOUNDS 



READ O/P FILE NAME AND OPEN FILE OF TYPE! 



BRU SAVE2 



READ STARTING LOCATION 



BRU 



ERRET 

WRITE 



OUT CORE BOUNDS AND STARTING LOCATfl 



biii' UP DATA FOK 6313* PERFORM INFORMN. T8 



DUMP 



$DUMP 



DUMP 10 



DUMP 1 1 



SBRM 

CLA 

STA 

LDA 

ADD 

SKG 

BRU 

LDA 

CLB 

LSH 

LDB 

SBRM 

LDA 

SBRM 

BRU 

BRU 

BRS 

BRU 



39 



EXECRL 

TLV1 
=NCMEM 
= 1 

= 77B 
DUMP 1 1 
TLV1 

1 1 

= 4 

GO FN 

OUTFIL 

BRS95 

SAVE1 

OUTEX 

BRU DUMP 10; 

DUMP 10 



(UPDATE EXRL) 



MIN TLV1 



* 


•RECOVER' 


SREC 


SBRM 
CBA 


GIFN 




SKE 


= 4 




BRU 


ERRET 




- SBRM 


OK TO 60 




SBRM 


KILL6 




LDA 


INFIL 




SBRM 


BRS96 




BRU 


DRDERR 




BRU 


CLO SE 


.* 


•RESTART' 


* 


RESTARTS A USER A 


SRESDMP LDA 


=4000000B 




SKA 


CPARW 




BRU 


*+2 




BRU 


ERRET 




EAX 


UFDE 




LDA 


-7,2 




SKG 


= 




BRU 


RDMPM 




STA 


GET2 




BRS 


46 




SBRM 


KILL6 




CLA 






XMA* 


DBAJOB 




STA 


TLV1 




LDA 


GET2 



AFTER ACCIDENTAL DISCONNECT 



LOOK FOR RESTART STATUS 



LDX 


= 8 


BRS 


1 


BRU 


RESDPT 


SBRM 


BRS9 6 


BRU 


RESDP1 


CLA 




XMA 


INFIL 


BRS 


2 


LDA 


GET2 


LDX 


= 9 


BRS 


1 


BRU 


RESDP1 


BRS 


66 


BRS 


2 


LDA 


GET2 


BRS 


67 


CLAB 




EAX 


UFDE 


STP 


-8,2 


LDA 


TLV1 


ADM* 


D8AJ0B 


BRU 


CLO SE 


RDMPM MSET 


M63, 


BRU 


ERRET+2 


RESDP1 LDA 


TLV1 


ADM* 


DBAJOB 


BRU 


DRDERR 


* 'TIMES' 


r 


* PRINTS 


ELAPSED 


STIMES SBRM 


MFD 


LDA 


UREAL 


SBRM 


GETTIM 


SBRM 


HOUR 


MSET 


M4 


LDA 


UREAL 


SBRM 


DAY TIM 


MSET 


M40 


SBRM 


CHAR3 


BRU 


CRA 


SKE 


YES 


BRU 


CRA 


MSET 


M49 


LDX 


= UFDE 


LDP 


-3,2 


COPY 


A8, BA 


SBRM 


HOUR 


MSET 


M48 


LDX 


= UFDE 


LDA 


-6,2 


MUL 


= 255 


LSH 


23 


SBRM 


PDNO 



RECOVER RESTART FILE 



"RESTART MISSING' 





MSET 


M21 




BRU 


CRA 


SSETDAT 


SBRM EXEUSE; 


SFI-ND 


SBRM 


NMVF 




LDA 


XWR8 




LDX 


=NTTB 


FIND1 


XXA 






SKE 


= 




BRU 


FIND4 




MSET 


M30 




BRU 


CRA 


FIND4 


XXA , 






EAX 


-1*2 




SKE 


WERI S* 2 


• ' 


BRU 


FIND1 




STX 


DEL2 




STA 


DEL 3 




MSET 


M 5 


FIND2 


LDA 


DEL2 




SBRM 


PDMO 


FIND'3 


LDA 


DEL 2 




SKE 


= 




BRU 


*+2 




BRU 


CRA 




SUB 


= 1 




STA 


DEL2 




CAX 






LDA 


WERI S* 2 




SKE 


DEL 3 




BRU 


FIND3 




LDA . 


COMCH 




CIO 


GOUT 




BRU 


FIND2 


* 


•STATUS 


t 


£MA 


LDA PRGi 


RLU MRG PRGR! 



SBRM SDAT; BRU CRA 



MA2 



i SKE = 0; BRU *+2 
BRU MA2J MSET M21; EAX P.RGRLl; SBRM PRMA 
SKN SYSTL; BRU * + 2; BRU CRA; MSET M21 
SBRM PSCNJ CLA J CIO COUT; EAX SSRL; SBRM 



PRMA; BRU CRA 



$MA1 



•DI SC 


ALLOCATIC 


SBRM 


MFD 


MSET 


• M27 


EAX 


UFDE 


LDP 


-6*2 


STP 


•UNPTR 


LDA 


-4,2 


MUL 


= 255 


LSK 


23 


SBRM 


PDNO 



M SET 

LDA 

MUL 

LSH 

SBRM 

MSET 

LDA 

MUL 

LSH 

SBRM 

BRU 



M36 

UNPTR 

= 255 

23 

PDNO 

M54 

UNPTR 1 

= 255 

23 

PDNO 

CRA 



PRMA ZRO PRMAU STX DEL2J LDX =-S 

PRMA5 STX DEL 3; -LDA DEL2J SBRM ERBi SK G =0 

BRU PRMA4I SBRM PON 3 
PRMA3 LDB SLSHCHJ LDA DEL3; SKE =-Sj CLB ; 

LDX DEL 35 BRX PRMA5J BRR* PRMA 
PRMA4 LDA MINCHi CIO GOUT; BRU PRMA3 



CBA 



CIO COUT 



DATE 



SDATE v LDA 
SBRM 
BRU 



REAL 
DAY TIM 
CRA 



SWHO 
WHO 1 



SAM 



LDA =-1 5 STA 
MIN RLV23 LDA 
BRU *+2 ; BRU 
CAXJ LDA AUNNj 
SBRM OUTUSE 



RLV2 

RLV2 

CRA 

2; SKE =0J 

USER NAME 



SKG =NTTB-1 



BRU * + 2; BRU WHO! 



MSET M5J LDA RLV2 

MSET M21J BRU WHO 1 
"ACCEPT LINKS* 
LDX =-1 

LDA =2 

8RS 25 

BRU CRA 



SBRM PDNO 



LINE NO. 



* 'REFUSE LINKS' 

SRM LDX =-1 

CLA 

BRS 25 

BRU CRA 



'LINK 



SML 
ML! 



MLR 



MLR! 



MLR2 



SBRM RDNO; XAB; SKEOKCHl BRU ABORT' 
BRS 465 CBA* BRS 23; BRU MLR 
MIN NLNK REMOVED 2 14 69. DD NEEDED COUNTER IN MONITOR 
MSET M2U LDX UTTYl SBRM OUTUSE* MSET M5 
LDA UTTY? SBRM PDMO; MSET M70* BRU CRA 
SKA =777777008 

BRU MLR1 

MSET Mil •BUSY f 

BRU CRA 

SKA =60000008 

BRU MLR2 

MSET Ml 4 

BRU AM 

MSET Ml 3 

BRU CRA 



* LINKS 


USER, TO OPER; 


*TOR 


SCSHARE LDA 


OPR 




LDX 


REAL 




STX 


LGTM 




BRU 


ML1 




:{: f «• ? 






$QT ci a 


CIN 




SKE 


EOTCH 




BRU 


*+2 




BRU 


CRA 




SKE 


CRCH 




BRU 


QT 




LDA 


LINF 




CIO 


COUT 




BRU 


QT 





C TS- BLOCK) 



SETEXE SBRM RONOs XABJ SKE' OK CH J BRU 

BRU STEXE15 ETR =37777777B 
STEXE1 STA CPARWJ BRU CRA 



ERRET.J LDA PRWRDJ SKB X4 



* 


•BREAK ' 




sbL 


BRS 24 






BRU 


CRA 


PRI 


A'SC 


•IRP 


ACC 


ASC 


•CCA 


PUB 


ASC 


•BUP 


REA 


ASC 


'ODR 


YES 


ASC 


'SEY 



* ASSORTED ROUTINES FOR SYSTEM DEBUGGING COMMANDS 

* GET CORE BLOCK ADDRESS '_ 
SYSG8N ZRO DEL2J SBRM RDNO; SK G = T, BRU *+2; BRU ERRET 

CLB; LCY 1U BRR.DEL2 

* GET DRUM BAND ADDRESS ,-,,,,^-r. , «. , o 
S/SGDA ZRO DEL2; SBRM RDNO; SKA =777776006 , BRU ERRE » ^ 13 

MRG X4I STA GETl* CLA* LSH 111 SKE COMCH, BRU S/SGA1 

MSET M67* SBRM RDNO; SKA =-45 BRU ERRE I 

LSH 115 ADM GETl; CLA* LSH 13 

SYSGA1 SKE DOTCH; BRU ERRET; BRR DEL2 

* GET CORE LIMITS AND DRUM ADDRESS 

SYSGCD 7R0 DELI J SBRM SYSGBN; STA GET2; MSET M50 ( TO ) 

SBRM SYSGBN* ADD = 37 7 78* STA GET3* MSET M6S ( BAND ) 
SBRM SYSGDA; BRR DELI 

* READ OR WRITE ON DRUM 

SYSRWD ZRO DELI J LDA =PRGRL* STA GETS; 'LDA GETl 
SYSRWX LDX -GET2; SBRM GBIO; BRU ERRET; BRR DELI 

* GET DRUM ADDRESS AND SET UP TO READ OR WRI TE DDT SYMTAB 
SYSGBD ZRO DELI; SBRM SYSGDA; CLA; LD8 =177778; STP GET2 

LDA =SSRL; STA GET5; BRR DELI 

* READ OR WRITE FROM DDT RELABELING 
SYSRWE ZRO DELI* LDA GETl; BRU SYSRWX 

EXEUSE ZRO RLV1 

SKN CPARW; BRU ERRET; BRR RLV1 

* SYSDUMP, SYSLOAD 

SSYSDP SBRM EXEUSE; SBRM SYSGCD; LDB =1; SBRM SYSRWD; BRU CRA 
SSYSLD SBRM EXEUSE; LDA =PRGRLl; SBRM CKRLB* SBRM SYSGCD 
CLB; SBRM SYSRWD; BRU CRA 

* SYSSAVE, SYSDEBUG 

SSYSSV SBRM EXEUSE; SBRM SYSGBD; LDB =1; SBRM SYSRWE; BRU CRA 
SSYSD SBRM EXEUSE; SBRM SYSGBD; LDA = DDTRLB* SBRM GSYS 
CLB ; SBRM SYSRWE* LDA =1 * BRU CSYS1 

* ' SY SGO 

SSYSGO SBRM EXEUSE; SBRM SYSGDA; LDA GETl; ETR = 7774000B* STA SYSB* BRU» 

* CREATE COMMAND TABLES ENTRY 
CFLG1 EQU 10000000B 
CFL62 EQU 00100000B 



CFLG3 


EQU 


02000000B 


CFLG4 


EQU 


40000000B 


NCOMS 


EQU 


51 


COM 


MACRO D*P*1 




ZRO 


PCI) 


C 


EQU 


* ■ 




BSS 


MCOMS-1 


A 


EQU 


DC 2) 


N 


NARG 






IF (M 


-2 


M 


EQU 


3 




RPT 


N-2 


A 


EQU 


A+CFLG.DCM) 


M 


EQU 

ENDR 

ENDF 


M+ 1 

■ 




DATP 


i A 




BSS 


STRTBL-* 


PC 1) 


ASC 


.'DC 1)/ ' 


STRTBL 


EQU 
BSS 


* 

C- STRTBL 




EN DM 


* TAGS: 

* ■ L- OPERATOR STATUS, '2-OPEXEC* ARPAS* 

r RGT CFLGU FRGT CFLG2J FRGT CFLG3* 
S.COMTBL EQU * 


BRUTBL 


EQU 


* + NCOMS 


ECMTBL 


EQU 


COMTBL+NCQMS 


EBfiTBL 


EQ ti_JB RUXBL^GOM-S 


STRTBL 


EQU 


*.+ 2*NC0MS 




COM 


QED, CSYS*4 




COM 


CAL*CSYS* 4 




COM 


BASIC*CSYS*4 




COM 


LISP,CSYS*4* 3 




COM 


SNOBOL*CSYS* 4 




COM 


FTC*CSYS, 4 




COM 


PRINT*CSYS*4 




COM 


F0S*CSYS*4 




COM 


DDT, CSYS*4 




COM 


ARPAS* C SYS, 4*2 




COM 


OPEXEC*CSYS* 4*2 




COM 


HBS* CSYS, 4 




COM 


CCOPY )*OOPY 


, 


COM 


C CONTINUE )*CONT 




COM 


C EXECUTE )*GO 




COM 


C RENAME )*REN 




COM 


C WHO I S ON?S)* WHO 




COM 


UPDATE* UPFD* 4 




COM 


C DELETE )*DEL 




COM 


C PLACE )* PLACE 




COM 


C BRANCH TO )* BRANCH 




COM 


C DISC ALLOCATIONS)* MAI 



3-LISP* 4- CONFIRMATION NEEDED 
FRGT CFLG4 



COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
BSS 
SSUBTBL DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

' DATA 
DATA 
DATA 
DATA 

DATA 

DATA 
DATA 

DATA 

DATA 

DATA 
DATA 
DATA 



SDATE, SETDAT, 4 

(LIBRARY$$),PLD 

(WHERE IS ),FIND 

C SAVE CORE FROM ) , SAVE 

CFD FOR ),LFDF 

(DEFINE ), STFD 

(LOGOUT ), LOGOUT 

(FILESS), SLFP 

DI RECTO RY,LFDCOM 

(ACCEPT MESSAGES), AM, 4 

AI D, CSHARE, 4 

(LINK TO TELETYPE ),ML 

(BREAK LINK),BL,4 

(SET EXEC ), SETEXE 

(REFUSE MESSAGES), RM, 4 

(TIME USED), TIMES 

CLEAR, RESET, 4 

RESTART, RE SDMP, 4 

(KILL PROGRAM), KILL, 4 

(DUMP ON ), DUMP 

(RECOVER FROM ) , REC 

MAP, MA 

(DATE ),DATE 

( GET ) , STEAL 

( SSAVE ), SYSSV 

( READ BLO CK S ) , SY SL D 

( WRI TE BLO CK S ) , SY SDP 

(DEBUG ), SYSD 

CSYSGO ),SYSGO 

■STRTBL-* 

30030000B QED 



201 SB 

1 1 11 1 1 1 IB 

3000 4000 B CAL 

212223B 

24120000B 

I 1 1 1 11 11B 

30020000B BASI C 


•31323311B 

II 1111 1 IB 

300 30000 B LISP 


46 47 50 35B 

1 1111111B 
30024000 B SNOBOL 


25262730B 

111111 



30004000B 

424300B 



1 1 1111 1 IB 



FTC 



DATA 


62000240B 


PRINT 


DATA 


100000B 




DATA 







DATA 


111 1 111 IB 




DATA 


30004000B 


FOS 


DATA 


530000B 




DATA 







DATA 


1 1 1 1 1 1 1 1 B 




DATA 


50030000B 


DDT 


DDTRLB DATA 







DATA 


1617B 




DATA 


1111151. IB 




DATA 


60 500 400 B 


ARPAS 


DATA 


200000B 




DATA 







DATA 


11 111 1 1 IB 




DATA 


, 70010000B 


OPEXEC 


DATA 


57015152B*00000000B OPEXEC 


DATA 


111 I'll i IB' 




DATA 


70004000B, 440045B, 


0* 1 1 1 1 1 1 1 IB 


SSUBTB1 EQU 


SUBTBL+ 1 




SNSYS4 EQU * 


-SUBTB1 




END 







DOES NOT USE PAGE 11 



HBS 



GSUBR I DENT H18 3/7/68 



* CONSTANTS 

TCNT EQU 199 

MAXACT EQU 255 

NTTB EQU 32 

NCMEM EQU 57 B 



MAX NO OF ACCTS 



MSET MACRO 


D 


LDA 


= DC I ) 


SBRM 


XTMSG 


EN DM 




MSG MACRO 


D 


LDA 


a DC I) 


SBRM 


XOMSG 


EN DM 




* • 8 


UPDATE EXRLUEXRL2 


SEXECRL ZRO 


RLV1 


BRS 


A3 


STP 


EX RL 1 


BRR 


RLV1 



* 0.9 


UPDATE EXEC'S RL1,RL2 


SSEXR ZRO 


RLV1 


LDP 


EXRL . ./ . 


BRS 


AA 


BRR 


RLV1 



* 0. 


4 




SPDNO 


ZRO 


RLV1 




LDB 


= 10 


PDN2 


LDX 


GOUT 




BRS 


.. 36 




BRR 


RLV1 


* 0. 


5 




SPONO 


■ZRO 


RLVl 




LDB 


= 8 




BRU 


RDM 2 



TYPE DECIMAL NQ« 



TYPE OCTAL NO. 



0. 7 



SRONO 


ZRO 


RLV1 




LDB 


= 3 


RON 1 


LDX 


CIN 




BRS 


38 




BRR 


RLV1 


* 0. 


6 




SRDNO 


ZRO 


RL V 1 




LDB 


= 10 




BRU 


R0N1 


* 







READ OCTAL NO. 



READ DECIMAL NO. 



SOKTOGO ZRO RLV1 

CIO CINJ SKE OKCHJ 



BRU ERRETJ BRR RLV1 



* EN TRY POINT 


FOR CARRIER 


SOFFTTY BRS 


46 


LDA 


UNO 


SKG 


= 


BRU 


L GOUT 3 


LDA 


=40000008 


SKA 


CPARW 


BRU 


*+2 


BRU 


LGOUT1 


SBRM 


UPDATR 


LDX 


= UFDE 


LDA 


-7,2 


LDX 


=9 


BRS 


1 


BRU 


LGOUT1 


CXB 




LDX 


= UFDE 


STB 


-7,2 


SBRM 


BRS9 5 


NOP 




LDA 


TERM WD 


WIO 


OUTFIL 


WIO 


OUTFIL 


LDA 


OUTFIL 


BRS 


2 


BRU 


LGOUT1 


SUPDATR ZRO 


RETURN 


BRS 


108 


SBRM 


EXECRL 


SKN 


SYSTL 


BRU 


*+2 


BRR 


RETURN 


LDB 


= SSR1 


LDX 


SYSTL 


LDA 


2,2 


SBRM 


RRR 


SBRM 


SEXR 


BRR 


RETURN 



OFF INTERRUPT 



IS USER LOGGED IN 



DOES USER HAVE RESTART BIT 



SAVE INDEX 



* 4. 


3 


HAND ALL 


OF 


USER'S MEMORY BACK 


TO MONITOR 


SK I LL 6 


ZRO 
LDA 


RLVl 
= NCMEM 




- 




KILL 7 


ADD 

BRS 

SKE 

BRU 

CLAB 

STP 

STP 

LDA 

ST A 

BRS 

CLB 

STP 

BRS 

BRR 


= 1 
121 
= 77B 
KILL 7 

PRGRL 
SSRL 
= -1 
SYSTL 
43 

EX RL 

44 

RLVl 




( 





*READS USERS FD FROM DISC AND SETS TIME PARAMS 



SRFD 



ZRO 


RLV2 


SBRM 


FFD 


LDA 


= UFD 


LDX 


= 256 


BRS 


61 


HLT 




BRR 


RLV2 



DISC ADDR OF FD GOES TO B 
FD CORE ADDR 

READ DI SC 



**THIS ROUTINE READ USERS FD FROM DISK AND UPDATES CPU, CONNECT 
**AND DISC ALLOCATION CHARGES. IT THEN REWITES THE USER FD. 

SMFD ZRO RLV3J BRS 46; BRS 57; SBRM FFD; STB TLV1 1 DISC ADR OF FD 
LDA =DTEMPE; LDX =256; BRS 61; HLT 

LDX =FDIRE; LDA -3,2; STA TLV2U LDA -2,2; STA TLV2 

LDA LREAL; SBRM GETTIM; STA RLV5; STB TLV1 

CBA; LDX =UFDE; ADM TL TIM; ADD TLV21; STA - 3, 2 

LDA LTJOB; RSH 23; DIV =60; CNA; ADD RLV5 i 

BRU MFD2 NOW UPDATE USER FD ON DISK 

RSH 23; DIV TLVl; SKG =10; BRU *+2; BRU MFD1; LDA TLV21 

MFD2 ADM TCTIM; ADD TLV2; STA -2,2 

LDA REAL 

STA LREAL 

LDA* TJOB 

STA LTJOB 



MFD1 



LDA 




-4*2 




SUB* 




DBAJOB 




SKG 




-6,2 




BRU 




*+2 




ST A 




-6*2 




STA 




-5*2 




LDB 


= FDIRE>- XX b 




LDA 


-15B*2*- XX B; 


STA - 1 SB* 


LDB 




TLV1 1 




LDA 




= UFD 




LDX 




= 256 




BRS 




62 




HLT 








BRS 




47 




BRR 




RLV3 




LDA 


= 5; 


MUL TLV1J 


CBAJ BRL 



MFD2 



* 



DELETES FILE DIRECTORY ENTRY 
(A) = ADDR OF UFD ENTRY 



35FDEL 


ZRO 


RLV3 




ADD 


=22000007B 




STA 


COPYT 




LDA 


=220000006 




ADD 


= UFD 




ADD 


FDEND 




SKE 


. COPYT 




ADD 


= 4200000 B 




STA 


COPY1 




LDA 


= -7 




ADM 


FDEND 




COPY 


AX 




CLA 






EXU 


COPY1 




STA* 


COPYT 




BRX 


*- 3 




BRR 


RLV3 


* . 1. 


7 


GENERAL RO 


SGBIO 


ZRO 


RLV2 




STX 


GBIOPT 


- 


STP 


GBIOFN 


GBI0 6 


LDA 


0*2 




SKG 


1*2 




BRU 


GBI0 3 




MIN 


RLV2 




BRR 


RLV2 


GBI0 3 


ETR 


= 3777B 




ADD 


=20000B 




STA 


EXSX 




LDA 


0*2 



GENERAL ROUTINE FOR BLOCK I/O FROM RELABELING OTHER THANK 

CORE BOUNDS 

B G3ES TO GBIOSW* A=RAD ADDR. 



TRANSFER COMPLETED ? 
NO 



MOVE BLOCK- FOR- TRANSFER INTO PAGE 4 OF Tl 



ETR 

ADD 

STA 

LDA 

SKG 

STA 

LDA 

LRSH 

SUB 

LDB 

STP 

COPY 

SBRM 

Si" A • 

LDB 

LSH 

LDA 

RSH 

LDA 

STP 



=34000B 

= 4000B-1 

GBI0 2 

1*2 

GBI0 2 

GBI02 

GBI0 2 

11 

= 8 

3*2 

GBIOCR 

AX*BA 

ERB 

EX SRI - 

EXRL2 

6 

EX SRI 

6 

EXRL1 

EX SRI 



MAKE TRANSFER TO END OF BLOCK 

I S THI S PAGE THE LAST ? 

YES* ADJUST FINAL TRANSFER ADDR 

DETERMINE RELABELLING FOR THIS PAGE 



FORK MAP FOR P4=MAP FOR PAGE FOR XFER 
OTHER PAGES = EXEC MAP 



SEXSL7 



LDX 

LDA 

SUB 

ADD 

STA 

ADM 

LDA 

SKN 

LDA 

STA 

LDA 

BRS 

BRS 

STX 

LDX 

LDA 

SBRM 

LDX 

LDB 

SBRM 

SKR 

BRR 

LDX 

BRU 

NOP 



GBIOPT 

GBI02 

0*2 

= 1 

EXSA 

0*2 

GBIOX-1 

GBIOFN 

GBIOX 

EXSL 

EXSL7 

9 

31 

GBI0 4 

= - 4 

= EX SRI 

ERB 

GBIOCR 

GBI0C2 

SRB 

GBI0 4 

RLV2 

GBIOPT 

GBI0 6 

EXSL* 6 



NO. OF WORDS TO BE TRANSFERRED 
UPDATE TRANSFER ADDRESS FOR NEXT PAGE 



TRANSMIT- ANY MEMORY GRABBED BY TRANSFER 
... OPERATION TO TRANSFER- AREA • S RELABEL® 



CHECK STATUS OF TRANSFER- FORK ON TERMINAL 
IF NORMAL EXIT (BRS 10), RTN FOR NEXT PAB 



GBIOX 



ZRO 
ZRO 



GBIODK 
GBIOS 



* FORK FOR 

GBIOS BIO 

HLT 



G EN E R AL SE Q U EN TI AL 
GBIOFN 




I/O 



^ :£ % ifc j|c i« 3§C sje 4$ 



BRS 10 



* KLUDGE* FORK FOR DRUM INPUT 



GBIODK 


LDB 


20000B 




LDB 


=200008 




LDA 


GBIOFN 




ETR 


=377777778 




XAB 






LDX 


GBIOSW 




BRS 


1 A, 2 




BRU 


GBDKE, 2 




LDA 


=4000B 




ADM 


GBIOFN 




BRS 


10 


GBDKE 


8RU 


*+4 




MSET 


Ml 




HLT 






MSET 


M2 - 


' 


HLT 





GRAB A BLOCK FOR PAGE A 
GET RAD ADDRESS 

READ OR WRITE 2K ON RAD 

UPDATE RAD ADDRESS 



THE FILE^nMRr^f^r 1 !;^ R ff S A ^ " LE INTO THE RELABELING AD] 
lok flflBER IS IN A. IT SKIPS IF IT IS SUCCESSFUL. 



* 2. 5 


THIS SUE 


* THE 


FILE NUMBER 


SGET ZRO 


RLV3 


STA 


GETFN 


STX 


GET5 


SKG 


X0 


BRU 


*+2 


BRU 


GET20 


STB 


GET2 


ETR 


= 7778 


CLB 




L SH 


11 


MRG 


X4 


STA 


GETFN 


LDA 


GET2 


ETR 


=37777B 


XMA 


GET2 


. ETR 


=740000B 


L.RSH 


3 


SUB 


= 1 


ADD 


GET2 


STA 


GET3 


CLA 




XMA 


GETFN 


BRU 


GET21 


BET 20 WIO 


GETFN 


STA 


GET2 



USER FILE 

YES 

CONVERT DRUM "FILE NO. • TO ACTUAL DRUM 



ADD "DRUM- FILE" MARKER BIT 



EXTRACT INITIAL AND FINAL CORE ADDRESSES* 



READ INITIAL CORE ADDRESS 
WIO GETFN READ FINAL CORE ADDRESS 



STA 



GET3 



GET21 



WIO 


GETFN 


STA 


GETSTL 


LDA 


GETFN 


CLB 




LDX 


= GET2 


SBRM 


GBIO 


BRU 


*+2 


MIN 


RLV3 


LDA- ... 


getfn 




■■ : <Wt&2(&' 


BRK 


LV3 



READ STARTING LOCATION 



TRANSFER INTO SPECIFIED CORE RANGE 



CLOSE FILE 



* 2. 


2 


RELEASE CORE 


INDICATED BY MAP ADDRESSED BY X 


SRELST 


'ZRO . 


RLV3 






COPY 


XB,A 






SBRM 


RRR 






CLAB 








STP* 


DRSW9 






BRR 


RLV3 




* 2. 


3 


GET NAME AND 


OPEN O/P FILE 


SGOFN 


ZRO 


SWOFF 






STP 


GOFNS 




GOFNR 


LDX 
CLAB 


= -1 . 






SBRM 


BRSS8 






SBRM 


NEWTRY 






STX 


DEL 3 






LDB 


GOFNS 






LDX 


GO FN SI 






SBRM 


BRS19 






BRU 


*-5 






STA 


OUTFIL 






LDB 


DEL 3 






BRR 


SWOFF 




* 2. 


A 


GET NAME AND 


OPEN I/P FILE 


SGI FN 


ZRO 
CLX 
CLAB 


SWOFF 






SBRM 


BRS58 






SBRM 


NEWTRY 






SBRM 


BRS16 






BRU 


*-2 





STA 

ERR 


INFIL 
, SWOFF 


* 1.1 

SNEWTRY ZRO 
MSET 
LDX 
BRU 


NAME INCORRECTLY DELIVERED, 

RTURNl 

El 

RTURN 1 

-3*2 



TRY AGAIN 



SCKRLB ZRO RLV4 CALL WITH PTR TO RLBLG IN A 

STA DEL2 

LDX =-S 

CKRLB1 .LDA DEL2 

SBRM ERB 

• SKG =0 

BRU *+3 

SKG =NCMEM 

BRU ERRET 

BRX CKRLB1 

BRR RLV4 

* 0'H EXTRACT BYTE FROM RELABELLING 
SERB ZRO RLV1 

ETR =377778 

STA ERB2 

LDP* ERB2 

EXU ERBSH,2 

ETR =77B 

BRR RLVl 

* SKI FT TABLE TO GET BYTE 
RCY 18 

RCY 12 

RCY 6 
NOP 

LCY 6 

L CY 12 

LCY 18 

LCY 24 

ERBSH EQU * 

■* . SHIFT TABLE TO RESTORE BYTE 

LCY 13 

LCY 12 

LCY 6 
NOP 

RCY 6 



RCY 1 2 

RCY 18 

RCY 24 

SRBSH EQU * 



*. 0.12 


SET RELABELLING BYTE 


SSSRB ZRO 


RLV1 


ETR 


= 77B 


STP 


ERB2 


LDP* 


ERB3 


EXU 


ERBSR,.2 


ETR 


=77777700B 


MRG 


ERB2 


EXU 


SR8SH*2 


STP* 


ERB3 


BRR 


RLV1 



1 

THI 

TW 



* 

* 

* ' 
* 

* 
* 

SDRSW 



DRSWS 



DRSW7 



DRSWX 



DRSW6 
• DRSWS 



• 8 

S ROUTINE 

RELABEL I 

THE RS.W 



1 

2 

3 

4 

5 

ZRO 

STA 

SBRM 

LDX 

LDB 

CLA 

LSH 

STB 

COPY 

EXU 

CBX 

SBRM 

LDB 

SBRM 

BRX 

LDP 

BRR 

BRU 

LDA 

LDA 

LDA 

BRU 

BRU 

HLT 

HLT 

COPY 

BRU 

LDA 

CBX 

LRSH 



DECODES A RELABELING STRUCTURE WORD IN A AND CONSTRUCTS 

NG WORDS WHICH IT RETURNS IN AB. ' 

CODES ARE 

SET TO 0. RELEASE ON RETURN 

SUBSYSTEM BYTE. USE TO RESET 

EXEC BYTE. USE TO RESET BYTE 

PROGRAM BYTE. USE TO RESET BYTE 

TS. IGNORE ON RETURN 

0. RESET SUBSYSTEM BYTE TO 



TO 
TO 

TO 
TO 
TO 



SET- 
SET 
SET 
SET 
SET 
RL V2 
DRSWS ' 
EXECRL 
= -8 
DRSW2 

3 

DRSW2 
XB,AX 
DRSWX* 2 

ERB 

=DRSW3 

SRB 

DRSW5 

DRSW3 

RLV2 

DRSW6 

= SSRL 

= EXRL 

=PRGRL 

DRSW8 

DRSW8 



- 

BX,A 
DRSW7 
EXRL1 

18 



BYTE ON RETURN. 
ON RETURN 

ON RETURN 

ON RETURN. 



BRU x 



.DRSW7 



* 
* 
SRRR 



1.6 



RRR1 



RRR2 



RRRX 



RRR3 



CODE TO RESET RELABELLING REGS ACCORDING TO RSW IN A. 
RELABELING REGISTER ADDRESS IN B. THIS ROUTINE CAN ALSO BE USED T 
RELEASE SELECTED BLOCKS BY SETTING THE BW BYTES TO FORTH E BLOCK 
TO BE RELEASED + TO 1 FOR ALL THE OTHERS. IT IS ONLY LESS 
INEFFICIENT THAN THE MONITOR RELEASE LOGIC 



RRR5 



ZRO 

LDX 

STA 

CBA 

ETR 

STA 

STX 

LDB 

CLA 

LSH 

STB 

COPY 

EXU 

CBX 

STA 

LDA 

SBRM 

LDB 

SBRM 

LDX 

BRX 

BRR 

BRU 

LDA 

LDA 

LDA 

BRU 

BRU 

HLT 

HLT 

CBX 

LDA 

SBRM 

SKG 

BRU 

8RS 

BRU 

CLA 

LDB 



RL V2 
= -8 
•DRSW2 

=37777B 

DRSW9 
DEL 3 
DRSW2 ' 

3 

DRSW2 

XB,AX 

RRRX..2 

DRSW3 

DRSW9 

ERB 

DRSW3 

SRB 

DEL 3 

RRR1 

RLV2 

RRR3 

= SSRL' 

= EXRL 

= PRGRL 

RRR2 ■ 

RRR5 





DRSW9 
ERB 

■ = NCMEM 
RRR2 
121 
RRR2 

= SSRL 



LDX 
BRU 



DEL 3 
RRR2- 1 



* 



1.3 



SPSCN 



1 


PRINT CURRENT 


SUBSYSTEM NAME 


ZRO 


RLV2 




SKN 


SY STL 




BRU 


*+2 




BRU 


ERRET 




LDA 


SY STL 




SUB 


= SUBTB1 




RSH 


2 




COPY 


AX 




LDA 


C0MTBL*2 




SBRM 


XTMSG 




BRR 


RLV2 





* 4. 


1 


ACT! VATE A 


SGSYS 


ZRO 


RLV-5 




SKE 


SY STL 




BRU 


*+2 


'• 


BRR 


RLV5 




SBRM 


RSYS 




BRS 


46 




STA 


SYSTL 




CAX 






STA 


SYSRRL 




LDA 


-1*2 




SKA 


XI 




BRU 


*+2 




BRU 


GSYS5 




LDP* 


SY SRRL 




STP 


SSRL 




BRU 


GSYS9 


GSYS5 


LDX 
CLAB 


SY STL 




STA 


GET2 




STP 


SSRL 




LDB 


-1*2 




LSH 


10 




ETR 


= 177B 




MRG 


=400000008 




LDB* 


SY SRRL 




LDX 


= SSRL 




SBRM 


GET 




BRU 


GSYS2 


GSYS9 


>BRS 


47 




BRR 


RLV5 



ACTIVATE A SUBSYSTEM WITH SUBSYS KASKT ADDRESS IN A, REAI 

SUBSYST ALREADY ALLOCATED TO THIS USER ? 

YES* NOTHING TO DO*- RETURN 

NO* RELEASE CURRENT SUBSYS, I F ANY 



NO* READ 
YES* SET 



I T. IN 

UP COMMON 



RELABELLING 



SUBSYSTEM INCORRECTLY READ IN 



GSYS2 



LDA 


= ERRTM 1 


STA 


RLV5 


LDA 


= -1 


STA 


SY STL 


EAX 


SSRL 


SBRM 


RE'LST 


B.RU 


GSYS9 



SET ERROR EXIT 

RECORD NO SUBSYSTEM IN CORE 

RELEASE ANY MEMORY GRABBED BY READ- IN PRS 



* 3. 4 


RELEASE THE CURRENT SUBSYSTEM 


SRSYS ZRO > 


RLV4 


STA 


TLV11 


LDA 


= - 1 


XMA 


SYSTL 


EAX 


SSRL 


SKE 


= • 1 * 


, SBRM 


RELST ' 


LDA 


TLV1! 


BRR 


RLV4 


SFDFNA ZRO 


RLV3 


SBRM 


RFINA 


8RU 


ERRET 


BRU 


ERRET 


BRU 


ERRET 


SBRM ' 


FDSCH 


BRR 


RLV3 


MIN 


RLV3 


BRR 


RLV3 . ' 



* PRINTS OUT FILE NAME 



SPFINA 


ZRO 
CLA 


RLV1 




. STA 


TLV11 




STA 


GOFNFL 




LDA 


SL SH CH 




CIO 


CO UT 


PFINA1 


LDA 


TLV11 




M UL 


=125252538 




ADD 


UNPTR 




ADD 


= 3 




CAX 






LDA 


0,2 




CAX 






LSH 


5 




ETR 


= 30B 




CNA 






COPY 


AX»XA,.B 




LRSH 


16,2 





ETR 


= 377B 




CIO 


GOUT 




MIN 


TLV1 1 




SKG 


= 778 




MIN 


GOFNFL 




SKG 


= 177B 




BRU 


PFINA1 




LDA 


SLSHCH 




CIQ 


CO UT 




BRR ' 


RLV1 


* 


PRINTS 


UFD ENTRY 


SFPRINT ZRO 


RLV3 




LDA 


GOFNFL 




SUB 


= 12 




COPY 


AX, A 




CIO 


COUT . 




BRX 


*-l 




LDA* 


.-UNPTR 




ETR 


=37777777B 




SBRM 


FSP 




LDX 


UNPTR 




LDA 


2,2 




RSH 


17 




ETR 


. =7 




CAX 






LDA 


Tl,2 




LDX 


CO UT 




LDB 


= -1 




BRS 


34 




LDX 


UNPTR 




LDA 


2,2 




• SKA 


X2 




BRU 


FI 5 




M SET 


M19 




BRU 


FI6 


FI5 


MSET 


M44 


FI6 


SKN* 


UNPTR 




BRU ' 


• FI-8 




MSET 


M45 




BRU 


FRO 


FI8 


LDX 


UNPTR 




LDA 


2,2 




SKA 


XI 




BRU 


FI 10 




MSET 


M46 




BRU 


FRO 


FI 10 


. MSET 


M47 


FRO 


LDX 


UNPTR 




SKN 


1, 2 




BRU 


FI 12 




-M SET 


M39 


FI 12 


LDX 


UNPTR 




LDA 


2,2 



GET WORD CONTAINING FILE LENGTH 

TAKE OFF SIGN BIT 

PRINT OUT THE DECIMAL LENGTH 

GET WORD CONTAINING FILE TYPE 



ADDRESS OF PROPER TYPE TO. BE PRINTED 
TELETYPE NUMBER 

PRINT TYPE 

GET WORD TO TEST FOR SEQ. OR RDM. 



BIT IS OFF-- 



SEQ 



BIT IS ON-- ,RDM 

CHECK FOR PRIVATE FILE 

NOT PRIVATE 

I S PRIVATE-- PRI V 

GO IMMEDIATELY TO READ ONLY CHECK 

GET WORD FOR ACCT PUB OR PUB CHECK 

SI QM BI T I S ON 

SIGN BIT IS OFF-- ACCT 

GO TO READ ONLY TEST 

SIGN BIT IS ON-- PUB 

READ ONLY TEST 

SKIP IF READ ONLY BIT IS ON 

READ ONLY-- » RO ■ 



FI13 



£T1 



SKA 


= 4000000 B 




BRU 


*+2 




BRU 


FI 1 3 




MSET 


M33 


'(DATA MISSING)/ 


MSET 


M21 


CARRIAGE RETURN 


BRR 


RLV3 


EXIT 


DATA 


M 5 1 


■ , . . 


DATA 


M60 




DATA 


M 59 




DATA 


M 53 




DATA 


M52 





SFSP 



TEN 



Z RO 


RLV2 


CLB 




LDX , 


= -6 


SKG 


■TEN+6*2 


BRU 


*+3 


SBRM 


PDiMO 


BRR 


RLV2 


XAB 




CIO 


COUT 


XAB 




BRX 


FSP+3 


BRU. 


■ *- 6 ' ■■ 


DATA 


99 99 99 * 99999 * 999 9 > 99 9 * 99 *9 



PRINTS CPU AND LINE TIME 



SHOUR 



ZRO 


RLV4 


STP 


UNPTR 


MSET 


M31 


LDA 


UNPTR 


RSH 


23 


DI V 


= 3600 


SBRM 


PLZZ 


RSH 


23 


DIV 


= 60 


SBRM 


PLZZ . 


"SBRM 


' PLZ 


M SET 


M26 


LDA 


. UNPTR1 


RSH 


23 


Dl'V 


= 60 


SBRM 


PLZZ 


SBRM 


PLZ 



'CPU: 



PLZ 



PLZ1 



PLZZ 



MSET 


M21 


BRR 


RLV4 


ZRO 


RLV2 


SKG 


= 9 


BRU 


*+ 3 


SBRM 


PDNO 


BRR 


RLV2 


CAX 




LDA 


ZEROCH 


CIO 


GOUT 


CXA 




BRU 


PLZ1 


ZRO 


RLV3 


STB 


UNPTR 


SBRM 


PLZ 


LDA 


COLN CH 


CIO 


COUT 


LDA 


UNPTR 


BRR 


RLV3 



PRINTS TIME OF DAY 



SDAYTIM ZRO 


RLV5 




SUB X4 




RSH 


23 




DI V 


= 3600 




ADD 


DM IN 




RSH 


23 




DI V 


= 44640 




CAX 






LDA 


MONTH, 2 




LDX 


= -3 




CIO 


CO UT 




RCY 


8 




BRX 


*-2 




RSH 


23 




CIO 


COUT 




DI V 


= 1 440 




STB 


TLV2 




ADD 


= 1 




SBRM 


PDNO 




MSET 


M7 3; LDA TLV2; LDB = 


PV; SKG =720; LDB = ' A* 


STB RLV2! 


: SKG =59; ADD =1440; 


SUB =720; SKG =59; ADD =720; 



DIV =60; STB TLV2; RSH 23; DI V =10; ADD =20B; SK E =20B; 
CBA; ADD =20B; CIO COUT; LDA COLNCH; CIO COUT; LDA TLV2 
RSH 23; DIV =10; ADD = 20B; CIO COUT; CBA; ADD =20B; CIO 
CLA; CIO COUT; LDA RLV2; CIO COUT; .MSET M76; BRR RLV5 



RSH 2 3 
CIO COUT 



COUT 



PRINTS TIME USED FOR LOG OUT 



SGETTIM ZRO 


RLV1 


SUB 


REAL 


RSH 


23 


D.I V 


= -3600 


COPY 


AX 


LDA* 


TJOB 


RSH 


23 


DI V 


= 60 


COPY 


XB 


BRR 


RLV1 



* READS SPACES, THEN TWO CHARS AND A SPACE 

SSEP ZRO RLV3 

SBRM DCHAR3 

BRR RLV3 

BRU ERRET 



* SETS UP TIMING FORK 

* A= NO. OF MILLISEC ' ' 

* X=ADDR OF INTERRUPT ROUTINE 
STFORK ZRO RLV1 

STA EXSA 

STX EXSX 

LDA =1000008 

BRS 78 ARM INTERRUPT 5 

LDA EXRL1 

CLB 

STP' EX SRI 

LDA =TMFK 

STA EXSL 

LDA EXSL 7 

BRS 9 START UP TIMING FORK 

BRR RLV1 

* TIMING FORK 

TMFK BRS 81 DISMISS FOR SPEC TIME 

CXA 

ETR ADMSK 

STA 20 5B 

LDA =5 

BRS 79 . FIRE INT 5 

BRS 10 

* SET UP TIME OUT 



STIMOUT ZRO 
BRS 



STMO 1 



MSET 
LDX 
BRS 
BRU 



RLVl 

46 

M62 

= - 1 

14 

L GOUT 3 



•PLEASE CALL, ETC 

WAIT FOR OUTPUTBUFFER TO EMPTY 



FINDS FILE DIRECTORY LOCATION ON DISC 



SFFD ZRO 




RLVl 


LDA 




UNO 1 


CLB 






LSH 




2 


ADD 




= 400B 


CAB 







BRR 




RLVl 


* CHECK FOR 


VALID PASSWORD 


SNMC ZRO 




RLVl 


CLX 






LDA 




XWR4, 2 


SKE 




DTEMP, 2 


BRR 




RLVl 


EAX 




1,2 


LDA 




XWR4, 2 , 


SKE 




DTEMP, 2 


BRR 




RLVl 


MIN 




RLVl 


BRR 


RLVl 


* READ GROUP 


NO FROM TTY 


SFNAC ZRO 


RLV2; SBRM RNAC 



(A> = <B) = DISC ADDRESS 



AND AUD FROM DISC 
;; BRU ERRET; STA SAVELL 
COPY AB5 LDA = DTEMP5 LDX =64; BRS 615 HLT; BRR RLV2 

SRNAC ZRO 'RLVl J LDX =-3; LDB = 25 COPY XA, B, BX; STA DTEMP, 2 
EAX 12,2; STA DTEMP, 2," COPY X8, AX,BA 

RNAC1 MUL = 55 STB SAVELL J CIO CIN5 SK6 =31BJ SKG = 1 7B 

BRR RLVl 3 SUB ZER0CH5 ADD SAVELL* BRX RNAC15 SUB =100 
SKG =-15 BRR RLVl; SKG =MAXACT5 MIN RLVl 5 BRR RLVl 

* SETS DATE 



SSDAT 



ZRO 


RLV25 MSET 


STB 


TLV1 


[5 SBRM 


SBRM 


RDN05 RSH 


DI V 




= 100 


COPY 




BA,AB 


ADM 




TLV1 


COPY 




BA,AB 


MUL 




= 30 


COPY 




BA,B . 


ADM 




TLV1 


LDA 




REAL 


SUB 


X4 





M415 SBRM RDN05 SUB =15 MUL =22320 
RDN05 SUB =15 MUL =7205 CBA5 ADM TLV1 
23 



RSH 23 

DIV =3600 

SUB TLV1J DMA 

STA DMIN 

BRR RLV2 

* GET STRING FROM TTY. 6 CHARS MAX TERMINATE ON SEMICOLON 

SGTS ZRO RLV2 

COPY . A, B 

STP XWR4 

LDX = -U LDA =3; BRS 12 

LDX =5 

STX TLV1 

GTSl LDA TLV1 

LSH 3 

COPY AX, A 

CIO CIN 

SKE CRCH 

BRU *+2 

BRU GTS4 

SKE OKCH 

BRU GTS3 

GTS2 MIN RLV2 

GTS4 LDX =-.!.» CLA; BRS 12 

BRR RLV2 

GTS3 LCY 0,2 

COPY AB, BA 

ADM XWR4 

COPY BA, B, X 

EAX 1,2 

ADM XWR4,2 

SKR TLV1 

BRU GTSl 

BRU GTS2 



SCX TIM 



ZRO 

LDA 

SUB 

RSH 

DIV 

ADD 

RSH 

DIV 

CLA 

DIV 

CAX 

LDA 

LRSH 

BRR 



X4 



RLV2 

REAL 

23 

= 3600 

DMIN 

23 

= 1440 

= 30 

X4 

0,2 

RLV2 



CONVERT TO HOUR BIT 



FIND NAME AND VERIFY 



SNM V 



ZRO 
LDX 



RLV2 
= -52 



NMV2 



LDP 


DTEMPE, 2 


SKE 


X WR2 


BRU 


NM V 1 


CBA 




SKE 


XWR3 


BRU 


NMV1 


MIN 


RLV2 


EAX 


DTEMPE*2 


BRR 


RLV2 


EAX 


.3*2 


BRX 


NMV2 


BRR 


RLV2 



msji 



* PUTS 1ST SIX 8-BIT CHARS FROM GIN IN XWR2*-3« 

* PUTS MAX OF TEN M0DUL0-27 CHARS IN XWR8i-9 FOR WERI S* 

* IGNORING CONTROL CHARACTERS* TERMINATING ON ANY NON- CONTROL \ 

* NON- ALPHA. 
SNMVF" 



NMV/F1 



NMVF3 



ZRO 


RLV2 


LDA 


= 4000! 


STA 


XWR1 


LDA 


EQXWR 


STA 


XWR5 


LDA 


= 1 


STA 


XWR6 


LDA 


= 4 


STA 


XWR7 


CLA 




STA 


XWR2 


STA 


XWR3 


STA 


XWR8 


STA 


XWR9 


LDA* 


XWR5 


MUL 


= 27 


RSH 


1 


CIO 


CIN 


SKG 


= 72B 


SKG 


= 40B 


BRU 


NMVF2 


STB* 


XWR5 


SUB 


= 40B 


ADM* 


X WR5 


ADD 


= 40B 


SKR 


XWR7 


BRU 


NMVF3 


MIN 


XWR5 


LDB 


= 4 


STB 


XWR7 


SKR 


X WR6 


BRU 


*+2 


BRR 


RLV2 


SKR 


XWR1 


BRU 


MMVF! 


COPY 


AX*B 


LDA ' 


XWR1 





LSH 


3 




COPY 


XB,AX,A 




LSH 


0>2 




ADM 


XWR2 




COPY 


BA 




ADM 


' XWR3 




BRL) 


NM W I 


1MVF2 


SKG 


= 100B 




8RR 


RLV2 




BRU 


NMVF3 


:qx WR8 


ZRO 


X WR8 



UNIVERSAL CONSTANTS AND VDRKING SPACE FOR EXEC- 



UTABLE OF CHARACTERS 



SRPCH ZRO 


11B 


SLPCH ZRO 


10B 


SDOLCH ZRO 


4 


SLINF ZRO 


152B 


SCRCH ZRO 


155B 


$QM CH Z RO 


37B 


SSEMIC ZRO 


33B 


SSLSHCH ZRO 


17B 


SGRCH ZRO 


36B 


SMINCH ZRO 


15B 


S8LKCH ZRO 





SCOLNCH ZRO 


32B 


SMBCH ZRO 


1.35B 


SDOTCH ZRO 


16B 


SSTARCH ZRO 


12B 


SZEROCH ZRO 


20B 


SEOTCH ZRO 


144B 


SQUOTCH ZRO 


2 


SCOMCH ZRO 


14B 


STERMCH ZRO 


137B 



♦STANDARD RESPONSES - FOR OUTPUT TO 


COMMAND O/P MEDIUM 


SE.1 ASC 


' ? / * 




SMI ASC 
SM2 ASC 
SM3 ASC 
SM4 ASC 
SMS ASC 


*RAD READ ERRORS/ ' 
'RAD WRITE ERRORS/ ' 
' START AT / » 
* SFROM / ' 
' ON L I N E / • 





$M6 


ASC 


SM7 


ASG 


SMS 


ASC 


$M9 


ASC 


SM10 


ASC 


SM 1 1 


ASC 


SMI 2 


ASC 


SM 1 3 


ASC 


SM 1 4 


ASC 


SM 1 5 


ASC 


SMI 6 


ASC 


SMI 7 


ASC 


SMI 8 


ASC 


SMI 9 


ASC 


SM20 


ASC 


SM21 


ASC 


SM22 


ASC 


SM23 


DATA 


SM24 


ASC 


SM2 5 


ASC 


SM26 


ASC 


SM27 


ASC 


SM29 


ASC 


SM30 


ASC 


SM31 


ASC 


SM32 


ASC 


SM33 


ASC 


SM34 


ASC 


SM35 


ASC 


SM36 


ASC 


SM38 


ASC 


SM39 


ASC 


SM 40 


ASC 


$M 4 1 


ASC 


SM 42 


ASC 


SM43 


ASC 


SM44 


ASC 


SM45 


ASC 


SM46 


ASC 


SM47 
SM 48 


ASC 
ASC 


SM 49 


ASC 


SM50 


ASC 


SM51 


ASC 


SM 52 


ASC 


SM54 


ASC 


SMS 6 


ASC 


SM57 


ASC 


SM58 


ASC 


SM59 


ASC 


SM60 


ASC 


SM62 


ASC 


SM6 3 


ASC 


SM6 4 


ASC 



* ATTEMPTED LINKS/ ' 
•CPE)/' 

'(PC)/' 

'disc read errors/ ' 

•disc write errors/' 

•sbusys/ • 

'sdevice is in uses/ ' 

•sin 8-level modes/ ' 

•snot accepting linkss/' 

•ss file name length type statusss/ ' 

• ON / ' 

•STAPE IS IN FILE PROTECTS/' 

'STIME USED / ' 

•SEQ / ' . ' 

»SNO FILE CONTROL BLO CK S AVAI LABLES/ ' 

'S/ * .. 

* FILES SS/ ' 

33265040B <CR,LF,AT SIGN) J ASC '/ ' 
•SDEVICE NOT ON-LINES/ ' 

*SYOU HAVE EXCEEDED YOUR DISC ALLOTTMENTS/ ' 
•SCONNECT: /• 
•MAX = / ' 

•STAPE I S IN USES/ * 
•SNOT ENTEREDS/ ' 
•SCPU: / ' 
x ',000 5/ ' 
' (DATA. MISSING)/ ' 
•SILLEGAL TIMES/ ' 
•SSTATUS: /' 
', MAX USED = / ' 
', EX/ ' 
',RDO/ ' 
'SALL? / ' 

•SENTER C MO- DAY- TIME]: /' 

'SHARVARD TIME SHARING SYSTEM (D00-H20): 8-6-68 S/ 
'STIME RUN OUT, PLEASE LOGOUT (3 MIN)/' 
•RDM /» 

•PRI V/ • 
'ACCT/ • 

•PUBL/ ' 

•DISC: MAX WORDS USED= /' 

•STOTALS FOR THIS BILLING PERIODS/ • 

• TO / ' 

UNDF,/ ' 

DUMP,/* 
', IN USE = / ' 
•SGROUP NO:/ ' 
'SIMVALID USER/ ' 

SYMB,/ ' 

BINA,/ ' 

SAVE,/' 
' 'SIF YOU NEED ASSISTANCE, CALL EXT. 3762 SS/ • 
'SRESTART MI SSING/' 
•SI-0 ERROR. FILE HAS BEEN DELETED. $/ * 



SM6 5 ASC 'SILL. IN SIR. AT / 

$M6& ASC . f $M EMORY TRAP AT / 



SM67 ASC f PAGE / ? 

$M68 ASC f BAND / f 

SM69 ASC , f AS / • 

SM70 ASC f HAS LINKEDS/' 

mil ASC •SPASSI/ORD: 

mi2 ASC r $NAME: / f 

mi3 ASC S 1969 /• 

&M74 ASC f $NEW NAME: '/'» 

SM7 5 ASC » FROM / f 

$M76 ASC f .M.'$/ ' 

SMOMTH ASC 



END 



